option explicit	
Sub Main
dim x as double, y as double	
x = inputbox("Unesi vredost x")
y = x + 1
msgbox(y)

End Sub